home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / pcgames.arc / BASMENU.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-01-02  |  896 b   |  34 lines
  1. 10  DIM PROG$(64)
  2. 20  SCREEN 0:KEY OFF:KEY 1,"run"+CHR$(34)+"basmenu"+CHR$(13)
  3. 30  CLS:WIDTH 80:COLOR 0,0:FILES "*.bas"
  4. 40  FOR DR%=1 TO 24
  5. 50  FOR DC%=0 TO 65 STEP 13
  6. 60  IF CHR$(SCREEN(DR%,DC%+1)) = " " THEN 130
  7. 70  AR%=AR%+1
  8. 80  FOR L%=1 TO 8
  9. 90  PROG$(AR%)=PROG$(AR%)+CHR$(SCREEN(DR%,DC%+L%))
  10. 100  NEXT L%
  11. 110  NEXT DC%
  12. 120  NEXT DR%
  13. 130  P=0:I%=0:CLS:WIDTH 40:LOCATE 1,4:COLOR 14,0
  14. 135  PRINT "BASIC programs on this diskette:"
  15. 140  FOR DC%=1 TO 27 STEP 13
  16. 150  FOR DR%=3 TO 23
  17. 160  I%=I%+1
  18. 170  IF PROG$(I%)="" THEN 195 ELSE LOCATE DR%,DC%
  19. 175  COLOR 0,7:PRINT USING "##";I%;
  20. 176  COLOR 7,0:PRINT " ";PROG$(I%)
  21. 180  NEXT DR%
  22. 190  NEXT DC%
  23. 195  LOCATE 24,13:COLOR 0,7:PRINT I%;:COLOR 7,0:PRINT " TO END";
  24. 200  LOCATE 25,1:INPUT "Enter number of program desired: ",P
  25. 210  IF P < 1 OR P > I% THEN 130
  26. 215  IF P = I% THEN GOTO 230
  27. 220  WIDTH 80:CLS:PRINT "Press F1 to return to menu when finished":RUN PROG$(P)
  28. 230  WIDTH 80
  29. 240  CLS
  30. 250  PRINT "BACK IN BASICA
  31. 254  KEY 1,"list "
  32. 255  KEY ON
  33. 260  END
  34.